home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / papel.dxr / 00071.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  753 b   |  28 lines
  1. on exitFrame
  2.   global stage
  3.   if stage = 12 then
  4.     if the visible of sprite 3 = 1 then
  5.       if soundBusy(2) = 0 then
  6.         sound playFile 2, "..\som\cchok.wav"
  7.       end if
  8.       set the visible of sprite 3 to 0
  9.     else
  10.       set the visible of sprite 3 to 1
  11.     end if
  12.   end if
  13.   if stage = 13 then
  14.     if (the top of sprite 17 > 137) and (the left of sprite 17 > 238) and ((the top of sprite 17 < 263) and (the left of sprite 17 < 441)) then
  15.       set the visible of sprite 17 to 0
  16.       set the puppet of sprite 17 to 0
  17.       set the visible of sprite 19 to 1
  18.       if soundBusy(2) = 0 then
  19.         sound playFile 2, "..\som\ccc.wav"
  20.       end if
  21.       set stage to 14
  22.       go("Licao4")
  23.     end if
  24.   end if
  25.   updateStage()
  26.   go(the frame)
  27. end
  28.